with saisir_afficher; use saisir_afficher;
generic
   with function creerIndividu return individu;
   with function creerCercle return cercle;
   with function creerTexte return texte;
   with function image_individu(n : individu) return string;
   with function image_cercle(n : cercle) return string;
   with function image_texte (t : texte) return string;
procedure Communautes.Test_Class(x : in out Communaute'Class);
